defined(my $pid = fork) or die "Cannot fork:$!";
unless ($pid) {
  exec "calc";
  die "cannot exec calc:$!";
}
waitpid($pid, 0);
